home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / SOMESHIT.ZIP / MIKESCR.TXT
Text File  |  1997-01-11  |  6KB  |  181 lines
  1. Thanks For down Loading SomeShit Version 0.00
  2.  
  3. Yo whats going on this is some stuff you can put into your 
  4. alias file, your popups menu, and even a Clone detector.  
  5. By: Mike-311, Nine7Sicks or RastaMan 
  6.                           
  7.  
  8.  
  9. Slap this shit in your alias 
  10. _____________________________________________________________________
  11. /r {
  12.   set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  13.   :loop
  14.   set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  15.   inc %p
  16.   if ( $mid(%p,1,%i) != á) { inc %c }
  17.   if ( %c > 6 ) { set %c 1 }
  18.   if ( $mid(%p,1,%i) != $null ) { goto loop }
  19.   say %o
  20.   unset %o %i %p %c
  21. }
  22. _____________________________________________________________________
  23.  
  24. /brick { %num = 1 | unset %msg  | %msg =  | %color = p
  25.   :start
  26.   if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  27.   if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  28.   :add
  29.   if $mid(%num,1, *1) != $null {
  30.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  31.     inc %num 
  32.   goto start  }
  33.   say %msg
  34. }
  35. _____________________________________________________________________
  36. /coke { %num = 1 | unset %msg  | %msg =  | %color = p
  37.   :start
  38.   if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
  39.   if %color == y  { %num2 = 4 | %num3 = 0 | %color = p | goto add }
  40.   :add
  41.   if $mid(%num,1, *1) != $null {
  42.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  43.     inc %num 
  44.   goto start  }
  45.   say %msg
  46. }
  47. _____________________________________________________________________
  48. /s say 1,8:)
  49. /f say 1,8:(
  50. _____________________________________________________________________
  51. /xmas { %num = 1 | unset %msg  | %msg =  | %color = p
  52.   :start
  53.   if %color == p { %num2 = 3 | %num3 = 4 | %color = y | goto add }
  54.   if %color == y  { %num2 = 4 | %num3 = 3 | %color = p | goto add }
  55.   :add
  56.   if $mid(%num,1, *1) != $null {
  57.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  58.     inc %num 
  59.   goto start  }
  60.   say %msg
  61. }
  62. _____________________________________________________________________
  63. /e {  
  64.  %text = $replace(*1,a,Γ)
  65.  %text = $replace(%text,A,├)
  66.  %text = $replace(%text,b,▀)
  67.  %text = $replace(%text,ae,µ)
  68.  %text = $replace(%text,c,ó)
  69.  %text = $replace(%text,d,╨)
  70.  %text = $replace(%text,e, δ)
  71.  %text = $replace(%text,E, δ)
  72.  %text = $replace(%text,i,ª)
  73.  %text = $replace(%text,l,ú)
  74.  %text = $replace(%text,m,/|\)
  75.  %text = $replace(%text,n, ±)
  76.  %text = $replace(%text,o,°)
  77.  %text = $replace(%text,O,÷)
  78.  %text = $replace(%text,P,■)
  79.  %text = $replace(%text,w,\\')
  80.  %text = $replace(%text,W,\\')
  81.  %text = $replace(%text,f,f)
  82.  %text = $replace(%text,F,f)
  83.  %text = $replace(%text,cks,X)
  84.  %text = $replace(%text,r,«)
  85.  %text = $replace(%text,s,º )
  86.  %text = $replace(%text,t,t)
  87.  %text = $replace(%text,T,t)
  88.  %text = $replace(%text,u,√)
  89.  %text = $replace(%text,y, )
  90.  %text = $replace(%text,?,┐)
  91.  %text = $replace(%text,z,░z░)
  92.  %text = $replace(%text,!,í)
  93.  /msg $Active %text 
  94. }
  95. _____________________________________________________________________
  96. Slap this shit in Popups
  97.  
  98. Color
  99. .Colors
  100. ..Dark Blue:/msg $active 2 $+ $?5="Enter Text" 
  101. ..Green:/msg $active 3 $+ $?6="Enter Text" 
  102. ..Red:/msg $active 4 $+ $?7="Enter Text" 
  103. ..Maroon:/msg $active 5 $+ $?8="Enter Text" 
  104. ..Purple:/msg $active 6 $+ $?9="Enter Text" 
  105. ..Tan:/msg $active 7 $+ $?0="Enter Text" 
  106. ..Yellow:/msg $active 8 $+ $?11="Enter Text" 
  107. ..Light Green:/msg $active 9 $+ $?12="Enter Text" 
  108. ..Grey-Blue:/msg $active 10 $+ $?13="Enter Text" 
  109. ..Light Blue:/msg $active 11 $+ $?14="Enter Text" 
  110. ..Blue:/msg $active 12 $+ $?15="Enter Text" 
  111. ..Pink:/msg $active 13 $+ $?16="Enter Text" 
  112. ..Grey:/msg $active 14 $+ $?17="Enter Text" 
  113. ..Light Grey:/msg $active 15 $+ $?18="Enter Text" 
  114. .Other Things
  115. ..Bold:/msg $active  $+ $?1="Enter Text"
  116. ..Underlined:/msg $active  $+ $?2="Enter text"
  117. ..Highlighted:/msg $active  $+ $?3="Enter Text"
  118. ..Color:/msg $active  $+ $?4="Enter color number" $+ $?="Enter Text"
  119. ..Random color:/msg $active  $+ $rand(2,15) $+ $?5="Enter Text"2,15) $+ $?="Enter Text"
  120. _____________________________________________________________________
  121. Here is the clone detector
  122. ;goes in aliases
  123.  
  124. /clone {
  125.   %t = 0
  126.   :start
  127.   inc %t 1
  128.   if $nick(%t,#) == $null goto end
  129.   if $address($nick(%t,#),3) == $null { whois $nick(%t,#) | /set %whois 1 }
  130.   goto start
  131.   :end
  132.   if %whois == $null clone_  | /else timer 1 5 /clone
  133.   unset %t | /unset %whois
  134. }
  135. /clone_ {
  136.   set %u 0 | /set %x 0 | /unset %addlist
  137.   :a
  138.   inc %u 1 | /set %v 0
  139.   if $nick(%u,#) == $null goto out
  140.   :b
  141.   inc %v 1
  142.   if $nick(%v,#) == $null goto a
  143.   if $nick(%u,#) == $nick(%v,#) goto b
  144.   if $address($nick(%u,#),3) == $address($nick(%v,#),3) {
  145.     if $address($nick(%v,#),3) !isin %addlist { set %addlist %addlist $address($nick(%v,#),3) | /inc %x 1 }
  146.   }
  147.   goto b
  148.   :out
  149.   msg # $str(1, áááááá)
  150.   if %x == 1 msg # ü $+ There is %x CLONE on # $+ ü | /else msg # ü $+ There are %x CLONES on # $+ ü
  151.   if %addlist == $null goto end
  152.   set %u 0
  153.   :c
  154.   inc %u 1 | /set %v 0 | /set %w 1 | /unset %clone | /set %add $token(%u,32,%addlist)
  155.   if %add == $null goto end
  156.   :d
  157.   inc %v 1
  158.   if $nick(%v,#) == $null goto c
  159.   if %add == $address($nick(%v,#),3) {
  160.     if %clone == $null set %clone $nick(%v,#) | /else set %clone %clone & $nick(%v,#)
  161.   }
  162.   inc %w 1
  163.   if (($nick(%w,#) == $null) && (%clone != $null)) { 
  164.     msg # ü $+ %clone $+ ü  ü $+ %add $+ ü
  165.   }
  166.   goto d
  167.   :end
  168.   msg # Mike-311| | /msg # $str(1, áááááá) | /unset %u | /unset %v | /unset %w | /unset %x | /unset %addlist | /unset %add | /unset %clone
  169. }
  170.  
  171. ;"internal address list" must be checked on the "remote", "events" box.
  172.  
  173. ;to start, type /clone
  174. ;or add this in popups, main window
  175.  
  176. Clone:/clone
  177.  
  178.  
  179. (&^ productions
  180. nine7sicks1@juno.com
  181. (Mike-311)